home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / gnustuff / tos / smallt~1 / smallt~1.zoo / String.st < prev    next >
Encoding:
Text File  |  1990-05-26  |  6.0 KB  |  243 lines
  1. "======================================================================
  2. |
  3. |   String Method Definitions
  4. |
  5.  ======================================================================"
  6.  
  7.  
  8. "======================================================================
  9. |
  10. | Copyright (C) 1988, 1989, 1990 Free Software Foundation, Inc.
  11. | Written by Steve Byrne.
  12. |
  13. | This file is part of GNU Smalltalk.
  14. |
  15. | GNU Smalltalk is free software; you can redistribute it and/or modify it
  16. | under the terms of the GNU General Public License as published by the Free
  17. | Software Foundation; either version 1, or (at your option) any later version.
  18. | 
  19. | GNU Smalltalk is distributed in the hope that it will be useful, but WITHOUT
  20. | ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
  21. | FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
  22. | details.
  23. | 
  24. | You should have received a copy of the GNU General Public License along with
  25. | GNU Smalltalk; see the file COPYING.  If not, write to the Free Software
  26. | Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  
  27. |
  28.  ======================================================================"
  29.  
  30.  
  31. "
  32. |     Change Log
  33. | ============================================================================
  34. | Author       Date       Change 
  35. | sbyrne      3 Sep 89      added asString for method source package
  36. |
  37. | sbyrne     25 Apr 89      created.
  38. |
  39. "
  40.  
  41. ArrayedCollection variableByteSubclass: #String
  42.           instanceVariableNames: ''
  43.           classVariableNames: ''
  44.           poolDictionaries: ''
  45.           category: nil.
  46.  
  47. String comment: 
  48. 'My instances represent string data types.  I provide accessing and
  49. manipulation methods for string data types.' !
  50.  
  51. !String class methodsFor: 'basic'!
  52.  
  53. fromString: aString
  54.     " ### probably should use regular copy"
  55.     ^aString copyFrom: 1 to: aString size
  56. !
  57.  
  58. readFrom: aStream
  59.     | str newChar |
  60.     str _ WriteStream on: (String new: 0).
  61.     aStream do:            " ### Is this risky, doing a next inside? "
  62.         [ :char | char == $'
  63.                   ifTrue: [ newChar _ aStream next.
  64.                           newChar == $' ifFalse: [ str nextPut: $' ].
  65.                 str nextPut: newChar ]
  66.                       ifFalse: [ str nextPut: char ]
  67.     ].
  68.     ^str contents
  69. !!
  70.  
  71.  
  72.  
  73. !String methodsFor: 'comparing'!
  74.  
  75. < aString
  76.     "Return true if the receiver is less than aString, ignoring case
  77.     differences."
  78.     self >= aString ifTrue: [ ^false ]
  79.                     ifFalse: [ ^true ]
  80. !
  81.  
  82. > aString
  83.     "Return true if the receiver is greater than aString, ignoring case
  84.     differences."
  85.     self <= aString ifTrue: [ ^false ]
  86.                     ifFalse: [ ^true ]
  87. !
  88.  
  89. <= aString
  90.     "Returns true if the receiver is less than or equal to aString,
  91.     ignoring case differences.  If is receiver is an initial substring of
  92.     aString, it is considered to be less than aString."
  93.     | c1 c2 |
  94.     " Scan self and aString until a character is clearly greater or lesser
  95.       (All preceding characters must have been equal).  If the end is reached,
  96.       one of the strings is a possibly improper initial substring of the other,
  97.       and for the receiver to be less than aString, it must be the initial
  98.       substring."
  99.     1 to: (self size min: aString size) do:
  100.         [ :i | c1 _ (self at: i) asLowercase.
  101.            c2 _ (aString at: i) asLowercase.
  102.            c1 < c2 ifTrue: [ ^true ].
  103.            c1 > c2 ifTrue: [ ^false ] ].
  104.     ^self size <= aString size
  105. !
  106.  
  107. >= aString
  108.     "Returns true if the receiver is greater than or equal to aString,
  109.     ignoring case differences.  If is aString is an initial substring of
  110.     the receiver, it is considered to be less than the receiver."
  111.     | c1 c2 |
  112.     1 to: (self size min: aString size) do:
  113.         [ :i | c1 _ (self at: i) asLowercase.
  114.            c2 _ (aString at: i) asLowercase.
  115.            c1 < c2 ifTrue: [ ^false ].
  116.            c1 > c2 ifTrue: [ ^true ] ].
  117.     ^self size >= aString size
  118. !
  119.  
  120.  
  121.  
  122. sameAs: aString
  123.     "Returns true if the receiver is the same string as aString, ignoring
  124.     case differences."
  125.     self size ~= aString size ifTrue: [ ^false ].
  126.     1 to: self size do:
  127.         [ :i | (self at: i) asLowercase ~= (aString at: i) asLowercase
  128.             ifTrue: [ ^false ] ].
  129.     ^true
  130. !
  131.  
  132.  
  133. match: aString
  134.     ^self asLowercase matchSubstring: 1 in: aString asLowercase at: 1
  135. !!
  136.  
  137.  
  138.  
  139. !String methodsFor: 'converting'!
  140.  
  141. asUppercase
  142.     "Returns a copy of self as an uppercase string"
  143.     | newStr |
  144.     newStr _ self species new: self size.
  145.     1 to: self size do:
  146.         [ :i | newStr at: i put: (self at: i) asUppercase ].
  147.     ^newStr
  148. !
  149.  
  150. asLowercase
  151.     "Returns a copy of self as a lowercase string"
  152.     | newStr |
  153.     newStr _ self species new: self size.
  154.     1 to: self size do:
  155.         [ :i | newStr at: i put: (self at: i) asLowercase ].
  156.     ^newStr
  157. !
  158.  
  159. asString
  160.     "But I already am a string!  Really!"
  161.     ^self
  162. !
  163.  
  164. fileName
  165.     "But I don't HAVE a file name!"
  166.     ^nil
  167. !
  168.  
  169. fileName
  170.     "But I don't HAVE a file position!"
  171.     ^nil
  172. !
  173.  
  174. asSymbol
  175.     "Returns the symbol corresponding to the string"
  176.     ^Symbol intern: self
  177. !!
  178.  
  179.  
  180.  
  181. !String methodsFor: 'copying'!
  182.  
  183. shallowCopy
  184.     | newStr |
  185.     newStr _ self species new: self size.
  186.     1 to: self size do:
  187.         [ :i | newStr at: i put: (self at: i) ].
  188.     ^newStr
  189. !
  190.  
  191. deepCopy
  192.     ^self shallowCopy
  193. !!
  194.  
  195.  
  196.  
  197.  
  198. !String methodsFor: 'printing'!
  199.  
  200. printOn: aStream
  201.     ^self do: 
  202.     [ :char | aStream nextPut: char ] "this seems too primitive"
  203. !!
  204.  
  205.  
  206.  
  207. !String methodsFor: 'storing'!
  208.  
  209. storeOn: aStream
  210.     aStream nextPut: $'.
  211.     self do:
  212.         [ :char | char == $' ifTrue: [ aStream nextPut: char ].
  213.               aStream nextPut: char ].
  214.     aStream nextPut: $'
  215. !!
  216.  
  217.  
  218.  
  219. !String methodsFor: 'private'!
  220.  
  221. matchSubstring: p in: aString at: s
  222.     | pc |
  223.     p > self size
  224.         ifTrue: [ ^s > aString size ].
  225.     pc _ self at: p.
  226.     pc = $*
  227.         ifTrue: [ s to: (aString size) + 1 do:
  228.                 [ :ss | (self matchSubstring: p + 1
  229.                           in: aString
  230.                   at: ss)
  231.                     ifTrue: [ ^true ] ].
  232.           ^false ].
  233.     s > aString size ifTrue: [ ^false ].
  234.     pc = $#
  235.         ifTrue: [ ^self matchSubstring: p + 1 in: aString at: s + 1 ].
  236.  
  237.     pc = (aString at: s)
  238.         ifTrue: [ ^self matchSubstring: p + 1 in: aString at: s + 1 ].
  239.     ^false
  240. !!
  241.  
  242.  
  243.